home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2a.lha / p4-1.2a / doc / latexinfo.sty (.txt) next >
LaTeX Document  |  1992-10-19  |  19KB  |  489 lines
  1. %% TeX macros to handle latexinfo files
  2. %% \include{ 5 page GNU copyleft here }
  3. %   Copyright (C) 1985, 1986 Richard M. Stallman
  4. %   Copyleft  (0) 1988, 1989 Michael E. Clarkson
  5. \def\latexinfoversion{1.2}
  6. \message{Loading Latexinfo package [Version \latexinfoversion]:}
  7. \message{}
  8. \setcounter{tocdepth}{2}
  9. \setcounter{secnumdepth}{3}
  10. \def\oddfoot#1{\def\@oddfoot{#1}}
  11. \def\evenfoot#1{\def\@evenfoot{#1}}
  12. % Save some parts of plain tex whose names we will redefine.
  13. \let\ptexlbrace=\{
  14. \let\ptexrbrace=\}
  15. \let\ptexdot=\.
  16. \let\ptexstar=\*
  17. \let\ptexend=\end
  18. \let\ptexbullet=\bullet
  19. \let\ptexb=\b
  20. \let\ptexc=\c
  21. \let\ptexi=\i
  22. \let\ptext=\t
  23. \let\ptexl=\l
  24. \let\ptexL=\L
  25. \def\pline{\hbox to\hsize}
  26. \def\pleftline#1{\pline{#1\hss}}
  27. \def\prightline#1{\pline{\hss#1}}
  28. \def\centerline#1{\pline{\hss#1\hss}}
  29. \def\tie{\penalty 10000\ }     % Save plain tex definition of ~.
  30. \let\normal=\normalsize
  31. \message{Basics,}
  32. \chardef\other=12
  33. \hyphenation{ap-pen-dix}
  34. \hyphenation{mini-buf-fer mini-buf-fers}
  35. % Parse an argument, then pass it to #1.
  36. % The argument can be delimited with [...] or with "..." or braces
  37. % or it can be a whole line.
  38. % #1 should be a macro which expects
  39. % an ordinary undelimited TeX argument.
  40. \def\parsearg #1{\let\next=#1\begingroup\obeylines\futurelet\temp\parseargx}
  41. \def\parseargx{%
  42. \ifx \obeyedspace\temp \aftergroup\parseargdiscardspace \else%
  43. \aftergroup \parseargline %
  44. \fi \endgroup}
  45. {\obeyspaces %
  46. \gdef\parseargdiscardspace {\begingroup\obeylines\futurelet\temp\parseargx}}
  47. \gdef\obeyedspace{\ }
  48. \def\parseargline{\begingroup \obeylines \parsearglinex}
  49. {\obeylines %
  50. \gdef\parsearglinex #1^^M{\endgroup \next {#1}}}
  51. \def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next}
  52. % Single-spacing is done by various environments.
  53. \newskip\singlespaceskip
  54. \singlespaceskip = \baselineskip
  55. \def\singlespace{%
  56. {\advance \baselineskip by -\singlespaceskip
  57. \kern \baselineskip}%
  58. \baselineskip=\singlespaceskip
  59. \def\arrow{$\rightarrow$}
  60. % Used to generate quoted braces.
  61. \def\mylbrace {{\tt \char '173}}
  62. \def\myrbrace {{\tt \char '175}}
  63. \let\{=\mylbrace
  64. \let\}=\myrbrace
  65. % \: forces normal size whitespace following.
  66. \def\:{\spacefactor=1000 }
  67. % \* forces a line break.
  68. \def\*{\hfil\break}
  69. % \. is an end-of-sentence period.
  70. \def\.{.\spacefactor=3000 }
  71. % \w prevents a word break
  72. \def\w#1{\hbox{#1}}
  73. % \br   forces paragraph break
  74. \let\br = \par
  75. % \dots{}  output some dots
  76. \def\dots{$\ldots$}
  77. % \page    forces the start of a new page
  78. %\def\page{\clearpage}
  79. % \exdent text....
  80. % outputs text on separate line in roman font, starting at standard page margin
  81. \def\exdent{\errmessage{@exdent in filled text}}
  82.   % \lisp, etc, define \exdent locally from \internalexdent
  83. {\obeyspaces
  84. \gdef\internalexdent{\parsearg\exdentzzz}}
  85. \def\exdentzzz #1{{\advance \leftskip by -\lispnarrowing
  86. \advance \hsize by -\leftskip
  87. \advance \hsize by -\rightskip
  88. \leftline{{\rm#1}}}}
  89. % \sp n   outputs n lines of vertical space
  90. \def\sp#1{\par\vskip #1\baselineskip\relax}
  91. % \comment ...line which is ignored...
  92. % \c is the same as @comment
  93. % \begin{ignore} ... \end{ignore}  is another way to write a comment
  94. \def\comment{\parsearg \commentxxx}
  95. \def\commentxxx #1{}
  96. \let\c=\comment
  97. % Some texinfo constructs that are trivial in tex
  98. \newenvironment{iftex}{}{}
  99. \catcode`@=11
  100. \message{menus,}
  101. {\catcode`\^^M=13 \gdef\@gobblecr{\@ifnextchar
  102. {\@gobble}{\ignorespaces}}}
  103. \chardef\active=13
  104. {\catcode`\ =\active\gdef\@vobeyspaces{\catcode`\ \active \let \@xobeysp}}
  105. \begingroup \catcode `|=0 \catcode `[= 1
  106. \catcode`]=2 \catcode `\{=12 \catcode `\}=12
  107. \catcode`\\=12 
  108. |gdef|@xmenu#1\end{menu}[|end[menu]]
  109. |gdef|@xifinfo#1\end{ifinfo}[|end[ifinfo]]
  110. |gdef|@xignore#1\end{ignore}[|end[ignore]]
  111. |endgroup
  112. \def\@menu{\begingroup
  113. \@tempswafalse 
  114. \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
  115. \obeylines \let\do\@makeother \dospecials}
  116. \def\menu{\@menu\@xmenu }
  117. \let\endmenu=\endgroup
  118. \def\ifinfo{\@menu\@xifinfo }
  119. \let\endifinfo=\endgroup
  120. \def\ignore{\@menu\@xignore }
  121. \let\endignore=\endgroup
  122. \def\node{\parsearg\nodezzz}
  123. \def\nodezzz#1{\nodexxx [#1,]}
  124. \def\nodexxx[#1,#2]{\gdef\lastnode{#1}}
  125. %\def\node#1#2#3#4{\gdef\lastnode{#1}}
  126. \let\lastnode=\relax
  127. \let\refill=\relax
  128. \let\setfilename=\comment
  129. \def\inforef #1{\inforefzzz #1,,,,**}
  130. \def\inforefzzz #1,#2,#3,#4**{See Info file \file{\losespace#3{}}, node `\losespace#1{}'}
  131. \def\losespace #1{#1}
  132. \message{fonts,}
  133. % Font-change commands.
  134. \def\li{\sf}
  135. %% Add scribe-like font environments, plus \l for inline lisp (usually sans
  136. %% serif) and \ii for TeX italic
  137. \def\i#1{{\sl #1}}
  138. \let\var=\i
  139. \let\dfn=\i
  140. \let\emph=\i
  141. \def\b#1{{\bf #1}}
  142. \let\strong=\b
  143. \def\t#1{{\tt \rawbackslash #1}\null}
  144. \let\ttfont=\t
  145. \let\kbd=\t
  146. \let\code=\t
  147. \def\samp#1{`{\tt \rawbackslash #1}'\null}
  148. \def\key#1{{\tt \uppercase{#1}}\null}
  149. \def\ctrl#1{$\uparrow${\tt #1}}
  150. \let\file=\samp
  151. \def\l#1{{\li #1}\null}
  152. \def\r#1{{\rm #1}}
  153. \def\s#1{{\sc #1}}
  154. \def\ii#1{{\it #1}}
  155. \def\bullet{$\ptexbullet$}
  156. \def\labelitemi{$\ptexbullet$}
  157. \def\minus{$-$}
  158. % Make altmode in file print out right
  159. \catcode `\^^[=\active \def^^[{$\diamondsuit$}
  160. \message{indexing,}
  161. % Index generation facilities
  162. % Define the texinfo user-accessible indexing commands for backwrds 
  163. % compatability.
  164. \def\findex{\fnindex}
  165. \def\kindex{\kyindex}
  166. \def\cindex{\cpindex}
  167. \def\vindex{\vrindex}
  168. \def\tindex{\tpindex}
  169. \def\pindex{\pgindex}
  170. \def\cindex{\cpindex}
  171. % \newindex {foo} defines an index named foo.
  172. % It automatically defines \fooindex such that
  173. % \fooindex ...rest of line... puts an entry in the index foo.
  174. % It also defines \fooindfile to be the number of the output channel for
  175. % the file that    accumulates this index.  The file's extension is foo.
  176. % The name of an index should be no more than 2 characters long
  177. % for the sake of vms.
  178. \def\newindex#1{\csname newindex#1\endcsname}
  179. % Yes I know this could be done shorter, but safer??
  180. \def\newindexcp{\if@filesw \newwrite\@cpindexfile
  181.   \immediate\openout\@cpindexfile=\jobname.cp
  182.   \def\cpindex{\@bsphack\begingroup
  183.              \def\protect####1{\string####1\space}\@sanitize
  184.              \@wrindex\@cpindexfile}%
  185.   \def\cpsubindex{\@bsphack\begingroup
  186.              \def\protect####1{\string####1\space}\@sanitize
  187.              \@wrsubindex\@cpindexfile}%
  188.   \def\cpindexbold{\@bsphack\begingroup
  189.              \def\protect####1{\string####1\space}\@sanitize
  190.              \@wrindexbold\@cpindexfile}
  191.    \typeout{Writing concepts index file \jobname.cp }%
  192.    \fi}
  193. \def\cpindex{\@bsphack\begingroup \@sanitize\@index}
  194. \def\cpsubindex{\@bsphack\begingroup \@sanitize\@index}
  195. \def\cpindexbold{\@bsphack\begingroup \@sanitize\@index}
  196. \def\@wrindex#1#2{\let\thepage\relax
  197.    \xdef\@gtempa{\write#1{\string \entry{#2}{\thepage}{#2}}}\endgroup\@gtempa
  198.    \if@nobreak \ifvmode\nobreak\fi\fi\@esphack}
  199. \def\@wrindexbold#1#2{\let\thepage\relax \let\bf\relax
  200.    \xdef\@gtempa{\write#1{\string \entry{#2}{\b{\thepage}}{#2}}}\endgroup\@gtempa
  201.    \if@nobreak \ifvmode\nobreak\fi\fi\@esphack}
  202. \def\@wrsubindex#1#2#3{\let\thepage\relax
  203.     \xdef\@gtempa{\write#1{\string \entry{#2 #3}{\thepage}{#2}{#3}}}\endgroup%
  204.     \@gtempa
  205.    \if@nobreak \ifvmode\nobreak\fi\fi\@esphack}
  206. \def\@index#1{\endgroup\@esphack}
  207. \def\pgindex{\@bsphack\begingroup \@sanitize\@index}
  208. \def\newindexpg{\if@filesw \newwrite\@pgindexfile
  209.   \immediate\openout\@pgindexfile=\jobname.pg
  210.   \def\pgindex{\@bsphack\begingroup
  211.              \def\protect####1{\string####1\space}\@sanitize
  212.              \@wrindex\@pgindexfile}\typeout{Writing index file \jobname.pg }\fi}
  213. \def\newindexvr{\if@filesw \newwrite\@vrindexfile
  214.   \immediate\openout\@vrindexfile=\jobname.vr
  215.   \def\vrindex{\@bsphack\begingroup
  216.              \def\protect####1{\string####1\space}\@sanitize
  217.              \@wrindex\@vrindexfile}
  218.   \def\vrindexbold{\@bsphack\begingroup
  219.              \def\protect####1{\string####1\space}\@sanitize
  220.              \@wrindexbold\@vrindexfile}
  221.     \typeout{Writing variable index file \jobname.vr }\fi}
  222. \def\vrindex{\@bsphack\begingroup \@sanitize\@index}
  223. \def\vrindexbold{\@bsphack\begingroup \@sanitize\@index}
  224. \def\newindextp{\if@filesw \newwrite\@tpindexfile
  225.   \immediate\openout\@tpindexfile=\jobname.tp
  226.   \def\tpindex{\@bsphack\begingroup
  227.              \def\protect####1{\string####1\space}\@sanitize
  228.              \@wrindex\@tpindexfile}
  229.     \typeout{Writing datatype index file \jobname.tp }\fi}
  230. \def\tpindex{\@bsphack\begingroup \@sanitize\@index}
  231. \def\newindexky{\if@filesw \newwrite\@kyindexfile
  232.   \immediate\openout\@kyindexfile=\jobname.ky
  233.   \def\kyindex{\@bsphack\begingroup
  234.              \def\protect####1{\string####1\space}\@sanitize
  235.              \@wrindex\@kyindexfile}\typeout{Writing key index file \jobname.ky }\fi}
  236. \def\kyindex{\@bsphack\begingroup \@sanitize\@index}
  237. \def\newindexfn{\if@filesw \newwrite\@fnindexfile
  238.   \immediate\openout\@fnindexfile=\jobname.fn
  239.   \def\fnindex{\@bsphack\begingroup
  240.              \def\protect####1{\string####1\space}\@sanitize
  241.              \@wrindex\@fnindexfile}
  242.   \def\fnindexbold{\@bsphack\begingroup
  243.              \def\protect####1{\string####1\space}\@sanitize
  244.              \@wrindexbold\@fnindexfile}
  245.     \typeout{Writing function index file \jobname.fn }\fi}
  246. \def\fnindex{\@bsphack\begingroup \@sanitize\@index}
  247. % \synindex{foo}{bar}    makes index foo feed into index bar.
  248. \def\synindex#1#2{\expandafter\xdef \csname @#1index\endcsname{%
  249.     \noexpand\csname @#2index\endcsname}%
  250. \expandafter \chardef \csname @#1indfile\endcsname=\csname @#2indfile\endcsname}
  251. % Define the macros used in formatting output of the sorted index material.
  252. % This is what you call to cause a particular index to get printed.
  253. % Write
  254. % \section*{Function Index}
  255. % \printindex{fn}
  256. \newskip\secondaryindent
  257. \secondaryindent=0.5cm
  258. %\catcode`\%=\other\catcode`\&=\other\catcode`\#=\other
  259. %\catcode`\@=\other\catcode`\$=\other\catcode`\_=\other
  260. %\catcode`\~=\other\catcode`\^=\other
  261. %\tex %
  262. %\catcode`\%=\other\catcode`\&=\other\catcode`\#=\other
  263. %\catcode`\@=\other\catcode`\$=\other\catcode`\_=\other
  264. %\catcode`\~=\other\catcode`\^=\other
  265. \def\printindex#1{
  266. \def\indexbackslash{\rawbackslashxx}
  267. \tolerance=9500 \advance\baselineskip -1pt
  268. \openin 1 \jobname.#1s
  269. \ifeof 1 \else \closein 1 \input \jobname.#1s
  270. % These macros are used by the sorted index file itself.
  271. % Change them to control the appearance of the index.
  272. \def\Dotsbox{\hbox to 1em{\hss.\hss}} % Used by index macros
  273. \def\initial#1{%
  274. {\bigbreak\pline{\large\bf#1\hfill}\kern 2pt\penalty3000}}
  275. \def\entry #1#2{
  276. {\parfillskip=0in \parskip=0in \parindent=0in \small
  277. \hangindent=1in \hangafter=1%
  278. \noindent\hbox{#1}\leaders\Dotsbox\hskip 0pt plus 1filll\relax #2\par
  279. \def\primary #1{\pline{\small#1\hfil}}
  280. \def\secondary #1#2{
  281. {\parfillskip=0in \parskip=0in \small
  282. \hangindent =1in \hangafter=1
  283. \noindent\hskip\secondaryindent\hbox{#1}\leaders\Dotsbox\hskip 0pt plus 1filll#2\par
  284. %%% Args are the skip and penalty (usually negative)
  285. \def\dobreak#1#2{\par\ifdim\lastskip<#1\removelastskip\penalty#2\vskip#1\fi}
  286. \message{environments,}
  287. % \begin{tex} ... \end{tex}    escapes into raw Tex temporarily.
  288. \def\tex{\begingroup
  289. \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
  290. \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
  291. \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie
  292. \catcode `\%=14
  293. \catcode`\"=12
  294. \catcode`\|=12
  295. \catcode`\<=12
  296. \catcode`\>=12
  297. \let\{=\ptexlbrace
  298. \let\}=\ptexrbrace
  299. \let\.=\ptexdot
  300. \let\*=\ptexstar
  301. \let\bullet=\ptexbullet
  302. \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext \let\l=\ptexl
  303. \let\L=\ptexL
  304. \let\endtex=\endgroup}
  305. % Define \lisp ... \endlisp.
  306. % \lisp does a \begingroup so it can rebind things,
  307. % including the definition of \endlisp (which normally is erroneous).
  308. % Amount to narrow the margins by for \lisp.
  309. \newskip\lispnarrowing \lispnarrowing=\parindent
  310. % This is the definition that ^M gets inside \lisp
  311. % phr: changed space to \null, to avoid overfull hbox problems.
  312. {\obeyspaces%
  313. \gdef\lisppar{\null\endgraf}}
  314. % Cause \obeyspaces to make each Space cause a word-separation
  315. % rather than the default which is that it acts punctuation.
  316. % This is because space in tt font looks funny.
  317. {\obeyspaces %
  318. \gdef\sepspaces{\def {\ }}}
  319. \newskip\aboveenvskipamount \aboveenvskipamount= 0pt
  320. \def\aboveenvbreak{{\advance\aboveenvskipamount by \parskip
  321. \endgraf \ifdim\lastskip<\aboveenvskipamount
  322. \removelastskip \penalty-50 \vskip\aboveenvskipamount \fi}}
  323. \def\afterenvbreak{\endgraf \ifdim\lastskip<\aboveenvskipamount
  324. \removelastskip \penalty-50 \vskip\aboveenvskipamount \fi}
  325. \newenvironment{example}{\aboveenvbreak
  326.     \hfuzz=12truept % Don't be fussy
  327.     \sepspaces % Make spaces be word-separators rather than space tokens.
  328.     \singlespace % Single space lines
  329.     % The following causes blank lines not to be ignored
  330.     % by adding a space to the end of each line.
  331.     \let\par=\lisppar
  332.     \parskip=0pt \advance \rightskip by \lispnarrowing 
  333.     \advance \leftskip by \lispnarrowing
  334.     \parindent=0pt
  335.     \let\exdent=\internalexdent
  336.     \obeyspaces \obeylines \tt \rawbackslash \bgroup\samepage
  337.     \def\next##1{}\next}{\egroup\afterenvbreak}
  338. %same is the same as an enclosed \samepage
  339. \newenvironment{same}{\bgroup\samepage}{\egroup}
  340. % This is \begin{display}; same as \begin{lisp} except use roman font.
  341. \newenvironment{display}{\aboveenvbreak
  342.     % Make spaces be word-separators rather than space tokens.
  343.     \sepspaces %
  344.     % Single space lines
  345.     \singlespace %
  346.     % The following causes blank lines not to be ignored
  347.     % by adding a space to the end of each line.
  348.     \let\par=\lisppar
  349.     \parskip=0pt \advance \rightskip by \lispnarrowing 
  350.     \advance \leftskip by \lispnarrowing
  351.     \parindent=0pt
  352.     \let\exdent=\internalexdent
  353.     \obeyspaces \obeylines
  354.         \def\next##1{}\next}{\afterenvbreak}
  355. % This is \format; same as \lisp except use roman font and don't narrow margins
  356. \newenvironment{format}{\aboveenvbreak
  357.     % Make spaces be word-separators rather than space tokens.
  358.     \sepspaces %
  359.     \singlespace %
  360.     % The following causes blank lines not to be ignored
  361.     % by adding a space to the end of each line.
  362.     \let\par=\lisppar
  363.     \parskip=0pt \parindent=0pt
  364.     \obeyspaces \obeylines
  365.     \def\next##1{}\next}{\afterenvbreak}
  366. \message{cross reference,}
  367. % Define cross-reference macros
  368. % \xref and \pxref generate cross references to specified points.
  369. \def\pxref #1{see \xrefX [#1,,,,,,,]}
  370. \def\xref #1{See \xrefX [#1,,,,,,,]}
  371. %\def\xrefX [#1,#2,#3,#4,#5,#6]{section \ref{#1} [%
  372. %{\setbox0=\hbox{\losespace#3{}}%
  373. %\ifdim \wd0 =0pt \losespace#1{}\else\unhbox0\fi}],
  374. %page\tie \pageref{#1}}
  375. \def\xrefX [#1,#2,#3,#4,#5,#6]{%
  376. \setbox1=\hbox{\i{\losespace#5{}}}%
  377. \setbox0=\hbox{\losespace#3{}}%
  378. \ifdim \wd0 =0pt \setbox0=\hbox{\losespace#1{}}\fi%
  379. \ifdim \wd1 >0pt%
  380. section \unhbox0{} in \unhbox1%
  381. \else%
  382. \ref{#1} [\unhbox0], page\tie \pageref{#1}%
  383. \fi }
  384. \message{sectioning,}
  385. % Define chapters, sections, etc.
  386. \def\@chapter[#1]#2{\ifnum \c@secnumdepth >\m@ne
  387.  \refstepcounter{chapter}
  388. \ifx\lastnode\relax\else\label{\lastnode}\fi
  389. \let\lastnode=\relax
  390.  \typeout{\@chapapp\space\thechapter.}
  391.  \addcontentsline{toc}{chapter}{\protect
  392.  \numberline{\thechapter}#1}\else
  393.  \addcontentsline{toc}{chapter}{#1}\fi
  394.  \chaptermark{#1}
  395.  \addtocontents{lof}{\protect\addvspace{10pt}}
  396. \addtocontents{lot}{\protect\addvspace{10pt}} \if@twocolumn
  397. \@topnewpage[\@makechapterhead{#2}] 
  398.  \else \@makechapterhead{#2}
  399.  \@afterheading \fi} 
  400. \def\@schapter#1{\if@twocolumn \@topnewpage[\@makeschapterhead{#1}]
  401.  \else \@makeschapterhead{#1} 
  402.  \@afterheading\fi}
  403. \def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
  404.      \def\@svsec{}\else 
  405.      \refstepcounter{#1}
  406. \ifx\lastnode\relax\else\label{\lastnode}\fi
  407. \let\lastnode=\relax
  408.     \edef\@svsec{\csname the#1\endcsname\hskip 1em }\fi
  409.      \@tempskipa #5\relax
  410.       \ifdim \@tempskipa>\z@ 
  411.         \begingroup #6\relax
  412.           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}
  413.         \endgroup
  414.        \csname #1mark\endcsname{#7}\addcontentsline
  415.          {toc}{#1}{\ifnum #2>\c@secnumdepth \else
  416.                       \protect\numberline{\csname the#1\endcsname}\fi
  417.                     #7}\else
  418.         \def\@svsechd{#6\hskip #3\@svsec #8\csname #1mark\endcsname
  419.                       {#7}\addcontentsline
  420.                            {toc}{#1}{\ifnum #2>\c@secnumdepth \else
  421.                              \protect\numberline{\csname the#1\endcsname}\fi
  422.                        #7}}\fi
  423.      \@xsect{#5}}
  424. \def\smallbook{
  425. \global\lispnarrowing = 0.3in
  426. \global\baselineskip 12pt
  427. \global\parskip 3pt plus 1pt
  428. \global\hsize = 5in
  429. \global\doublecolumnhsize=2.4in \global\doublecolumnvsize=15.0in
  430. \global\vsize=7.5in
  431. \global\tolerance=700
  432. \global\hfuzz=1pt
  433. \global\pagewidth=\hsize
  434. \global\pageheight=\vsize
  435. \global\font\ninett=cmtt9
  436. \global\let\smalllisp=\smalllispx
  437. \global\let\smallexample=\smalllispx
  438. \global\def\Esmallexample{\Esmalllisp}
  439. %% For a final copy, take out the rectangles
  440. %% that mark overfull boxes (in case you have decided
  441. %% that the text looks ok even though it passes the margin).
  442. \def\finalout{\overfullrule=0pt}
  443. \message{and turning on texinfo input format.}
  444. {\catcode`\@=0
  445. % \rawbackslashxx output one backslash character in current font
  446. {\catcode`\\=\other
  447. @gdef@rawbackslashxx{\}}
  448. % \rawbackslash redefines \ as input to do \rawbackslashxx.
  449. {\catcode`\\=\active
  450. @gdef@rawbackslash{@let\=@rawbackslashxx }}
  451. % \back outputs one backslash in fixed width font.
  452. \gdef\back{\tt\rawbackslashxx\ignorespaces}
  453. \def\document{\endgroup
  454.   \@colht\textheight  \@colroom\textheight \vsize\textheight
  455.    \columnwidth\textwidth \@clubpenalty\clubpenalty
  456.    \if@twocolumn \advance\columnwidth -\columnsep 
  457.       \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
  458.    \fi
  459.   \hsize\columnwidth \linewidth\hsize
  460.   \begingroup\@floatplacement\@dblfloatplacement
  461.    \makeatletter\let\@writefile\@gobbletwo
  462.    \@input{\jobname.aux}\endgroup 
  463.   \if@filesw \immediate\openout\@mainaux=\jobname.aux
  464.     \immediate\write\@mainaux{\relax}\fi
  465.   \def\do##1{\let ##1\@notprerr}
  466.   \@preamblecmds
  467.   \let\do\noexpand
  468. \@normalsize\everypar{}\nospecials}
  469. % Here is a list of the characters that have been specially catcoded:
  470. \def\dosomespecials{\do\$\do\&\do\#\do\%\do\~\do\^}
  471. {\catcode`\"=\active
  472. \catcode`\>=\active
  473. \catcode`\<=\active
  474. \catcode`\_=\active
  475. \gdef\nospecials{
  476. \catcode`\"=\active
  477. \gdef\activedoublequote{{\tt \char '042}}
  478. \let"=\activedoublequote
  479. \catcode`\>=\active
  480. \gdef\activegtr{{\tt \char '076}}
  481. \let>=\activegtr
  482. \catcode`\<=\active
  483. \gdef\activeless{{\tt \char '074}}
  484. \let<=\activeless
  485. \catcode`\_=\active
  486. \gdef\activeunderscore{{\tt \char '137}}
  487. \let_=\activeunderscore
  488. \@noligs\let\do\@makeother \dosomespecials}
  489.